object frmTrackSelect: TfrmTrackSelect Left = 268 Top = 175 Width = 399 Height = 369 BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] Caption = 'RCCD Track Selection:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnKeyDown = FormKeyDown OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 391 Height = 81 Align = alTop BevelOuter = bvNone Caption = 'Panel1' TabOrder = 0 object Label1: TLabel Left = 28 Top = 8 Width = 35 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '&Drive:' FocusControl = edtDrive end object Label2: TLabel Left = 28 Top = 36 Width = 35 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '&Artist:' FocusControl = edtArtist end object Label3: TLabel Left = 28 Top = 60 Width = 35 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '&Title:' FocusControl = edtTitle end object lblCDDBSerialNumber: TLabel Left = 124 Top = 8 Width = 105 Height = 13 AutoSize = False Caption = 'CDDB Serial Number:' FocusControl = edtSerialNumber end object edtDrive: TEdit Left = 68 Top = 4 Width = 45 Height = 21 TabStop = False Color = clBtnFace ReadOnly = True TabOrder = 0 end object edtArtist: TEdit Left = 68 Top = 32 Width = 281 Height = 21 TabOrder = 1 Text = 'New Artist' end object edtTitle: TEdit Left = 68 Top = 56 Width = 281 Height = 21 TabOrder = 2 Text = 'New Title' end object edtSerialNumber: TEdit Left = 236 Top = 4 Width = 89 Height = 21 TabStop = False Color = clBtnFace ReadOnly = True TabOrder = 3 end end object Panel2: TPanel Left = 0 Top = 315 Width = 391 Height = 27 Align = alBottom BevelOuter = bvNone TabOrder = 1 object Panel7: TPanel Left = 220 Top = 0 Width = 171 Height = 27 Align = alRight BevelOuter = bvNone TabOrder = 0 object btnCancel: TButton Left = 92 Top = 2 Width = 75 Height = 25 Caption = '&Cancel' ModalResult = 2 TabOrder = 0 OnClick = btnCancelClick end object btnOK: TButton Left = 4 Top = 2 Width = 75 Height = 25 Caption = '&OK' ModalResult = 1 TabOrder = 1 OnClick = btnOKClick end end object btnHelp: TButton Left = 4 Top = 2 Width = 75 Height = 25 Caption = '&Help' TabOrder = 1 OnClick = btnHelpClick end end object Panel3: TPanel Left = 149 Top = 81 Width = 77 Height = 234 Align = alLeft BevelOuter = bvNone TabOrder = 2 object btnAdd: TSpeedButton Left = 14 Top = 24 Width = 61 Height = 25 Caption = 'A&dd ->' Enabled = False OnClick = btnAddClick end object btnRemove: TSpeedButton Left = 14 Top = 52 Width = 61 Height = 25 Caption = '<- &Remove' Enabled = False OnClick = btnRemoveClick end object btnClearAll: TSpeedButton Left = 14 Top = 80 Width = 61 Height = 25 Caption = 'C&lear All' OnClick = btnClearAllClick end object btnReset: TSpeedButton Left = 14 Top = 108 Width = 61 Height = 25 Caption = 'Re&set' OnClick = btnResetClick end end object pnlPlayList: TPanel Left = 0 Top = 81 Width = 149 Height = 234 Align = alLeft BevelOuter = bvNone TabOrder = 3 object Panel6: TPanel Left = 0 Top = 0 Width = 16 Height = 234 Align = alLeft BevelOuter = bvNone TabOrder = 0 end object Panel4: TPanel Left = 16 Top = 0 Width = 133 Height = 234 Align = alClient BevelOuter = bvNone TabOrder = 1 object Panel5: TPanel Left = 0 Top = 0 Width = 133 Height = 20 Align = alTop BevelOuter = bvNone TabOrder = 0 object Label4: TLabel Left = 4 Top = 3 Width = 82 Height = 13 Caption = 'A&vailable Tracks:' end end object lbxAvailTracks: TListView Left = 0 Top = 20 Width = 133 Height = 209 HelpContext = 401 Align = alClient OnDblClick = lbxAvailTracksDblClick Columns = < item Caption = 'Track Name' Width = 120 end> DragMode = dmAutomatic HideSelection = False Items.Data = { E80000000800000000000000FFFFFFFFFFFFFFFF000000000000000007547261 636B203100000000FFFFFFFFFFFFFFFF000000000000000007547261636B2032 00000000FFFFFFFFFFFFFFFF000000000000000007547261636B203300000000 FFFFFFFFFFFFFFFF000000000000000007547261636B203400000000FFFFFFFF FFFFFFFF000000000000000007547261636B203500000000FFFFFFFFFFFFFFFF 000000000000000007547261636B203600000000FFFFFFFFFFFFFFFF00000000 0000000007547261636B203700000000FFFFFFFFFFFFFFFF0000000000000000 07547261636B2038} MultiSelect = True RowSelect = True OnEdited = lbxAvailTracksEdited OnDragDrop = lbxAvailTracksDragDrop OnDragOver = lbxAvailTracksDragOver PopupMenu = PopupMenu ShowColumnHeaders = False TabOrder = 1 ViewStyle = vsReport end object Panel11: TPanel Left = 0 Top = 229 Width = 133 Height = 5 Align = alBottom BevelOuter = bvNone TabOrder = 2 end end end object pnlAvailTracks: TPanel Left = 226 Top = 81 Width = 165 Height = 234 Align = alClient BevelOuter = bvNone TabOrder = 4 object Panel9: TPanel Left = 0 Top = 0 Width = 16 Height = 234 Align = alLeft BevelOuter = bvNone TabOrder = 0 object imgHand: TImage Left = 0 Top = 19 Width = 15 Height = 11 AutoSize = True Picture.Data = {} Transparent = True Visible = False end end object Panel8: TPanel Left = 16 Top = 0 Width = 133 Height = 234 Align = alClient BevelOuter = bvNone TabOrder = 1 object Panel10: TPanel Left = 0 Top = 0 Width = 133 Height = 20 Align = alTop BevelOuter = bvNone TabOrder = 0 object Label5: TLabel Left = 4 Top = 3 Width = 42 Height = 13 Caption = '&Play List:' end end object lbxPlayList: TListBox Left = 0 Top = 20 Width = 133 Height = 209 HelpContext = 402 Align = alClient DragMode = dmAutomatic ItemHeight = 14 Items.Strings = ( 'Track 1' 'Track 2' 'Track 3' 'Track 4' 'Track 5' 'Track 6' 'Track 7' 'Track 8') MultiSelect = True PopupMenu = popWhatsThis Style = lbOwnerDrawFixed TabOrder = 1 OnClick = lbxPlayListClick OnDblClick = btnRemoveClick OnDragDrop = lbxPlayListDragDrop OnDragOver = lbxPlayListDragOver end object Panel12: TPanel Left = 0 Top = 229 Width = 133 Height = 5 Align = alBottom BevelOuter = bvNone TabOrder = 2 end end object Panel13: TPanel Left = 149 Top = 0 Width = 16 Height = 234 Align = alRight BevelOuter = bvNone TabOrder = 2 end end object SaveSettings: TgbSaveSettings IniFileName = 'RCCD' SectionName = 'Track Select Form' RegistryKey = '\Software\GaJITS\' Left = 356 Top = 4 end object PopupMenu: TPopupMenu Left = 66 Top = 169 object WhatsThis1: TMenuItem Caption = '&What'#39's This?' OnClick = WhatsThis1Click end object N1: TMenuItem Caption = '-' end object PlayBrief1: TMenuItem Caption = 'Play &Brief' OnClick = PlayBrief1Click end object Play1: TMenuItem Caption = '&Play' OnClick = Play1Click end end object gbMinMax1: TgbMinMax MinMaxConstraints.MaxSizeX = 0 MinMaxConstraints.MaxSizeY = 0 MinMaxConstraints.MaxPositionX = 0 MinMaxConstraints.MaxPositionY = 0 MinMaxConstraints.MinTrackSizeX = 262 MinMaxConstraints.MinTrackSizeY = 279 MinMaxConstraints.MaxTrackSizeX = 0 MinMaxConstraints.MaxTrackSizeY = 0 MinMaxConstraints.ApplyMaxSizeX = False MinMaxConstraints.ApplyMaxSizeY = False MinMaxConstraints.ApplyMaxPositionX = False MinMaxConstraints.ApplyMaxPositionY = False MinMaxConstraints.ApplyMinTrackSizeX = True MinMaxConstraints.ApplyMinTrackSizeY = True MinMaxConstraints.ApplyMaxTrackSizeX = False MinMaxConstraints.ApplyMaxTrackSizeY = False Left = 186 Top = 221 end object popWhatsThis: TPopupMenu Left = 284 Top = 161 object WhatsThis: TMenuItem Caption = '&What'#39's This?' OnClick = WhatsThisClick end end end